INCLUDE "Z80.POD"SETUP   TRAP ACTIVE FORCE LINE NO   TRAP ACTIVE INTERRUPT NOPROGRAM MAIN   REGF = 88001: LABEL 1   DPY-$F   WRITE @REGF=FF   INC REGF   IF REGF = 9000 GOTO 2   GOTO 12: LABEL 2   STOP